home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / kumesan / kumerja.bas < prev    next >
BASIC Source File  |  1993-11-30  |  6KB  |  111 lines
  1. 10 CLS:DIM M$(14,2000):SCREEN@2
  2. 20 LOAD@"KUME.TIF"
  3. 30 SYMBOL (50,30),"くめ君の作曲集",5,5,2
  4. 40 LINE (0,200)-(650,250),PSET,[255,0,41],BF
  5. 50 LINE (0,270)-(650,320),PSET,[40,255,40],BF
  6. 60 SYMBOL (150,130),"PUSH ANY KEY",2,2,2 
  7. 70 FOR D=0 TO 310 STEP 10:LINE(0,D)-(650,D),PRESET:NEXT D
  8. 80 CIRCLE(100,400),15,5:SYMBOL(130,385),"制作  小川俊介",2,2,5
  9. 90 A$=INPUT$(1)
  10. 100 IF A$="" THEN 110
  11. 110 CLS
  12. 120 ON KEY (1) GOSUB*ILM:KEY (1) ON
  13. 130 ON KEY (2) GOSUB*TN:KEY (2) ON
  14. 140 ON KEY (3) GOSUB*TK:KEY (3) ON 
  15. 150 ON KEY (4) GOSUB*KAORI:KEY (4) ON
  16. 160 ON KEY (5) GOSUB*RANNA:KEY (5) ON
  17. 170 ON KEY (6) GOSUB*NEL:KEY (6) ON
  18. 180 ON KEY (7) GOSUB*EEE:KEY (7) ON
  19. 190 WHILE INKEY$=""
  20. 200 SYMBOL (10,0),"PF1",3,3,7
  21. 210 SYMBOL (10,50),"PF2",3,3,7
  22. 220 SYMBOL (10,100),"PF3",3,3,7
  23. 230 SYMBOL (10,150),"PF4",3,3,7
  24. 240 SYMBOL (10,200),"PF5",3,3,7
  25. 250 SYMBOL (10,250),"PF6",3,3,7
  26. 260 SYMBOL (10,300),"PF7",3,3,7
  27. 270 SYMBOL (120,0),"IL MIRAGE",3,3,4
  28. 280 SYMBOL (120,50),"TAMASY",3,3,4
  29. 290 SYMBOL (120,100),"TAMASY-改",3,3,4
  30. 300 SYMBOL (120,150),"危険な香り",3,3,4
  31. 310 SYMBOL (120,200),"BASS ON",3,3,4
  32. 320 SYMBOL (120,250),"SAX ON",3,3,4
  33. 330 SYMBOL (120,300),"終了",3,3,4
  34. 340 SYMBOL (350,300),"曲が終わったら何",2,2,[200,0,128]:SYMBOL (350,330),"か押してください",2,2,[200,0,128]
  35. 350 LINE(345,295)-(610,370),PSET,6,B
  36. 360 WEND
  37. 370 *ILM
  38. 380 LOAD@"RYM_ALL1.PMB":LOAD@"FM_1.FMB"
  39. 390 CLS:LINE(100,50)-(500,100),PSET,1,BF:LINE(100,110)-(500,240),PSET,1,BF:SYMBOL (110,50),"IL MIRAGE",4,3,7
  40. 400 SYMBOL (100,110),"｢MIRAGE｣はフランス語で蜃",2,2,7:SYMBOL (100,140),"気楼を意味する。この曲は",2,2,7:SYMBOL(100,170),"ゲームのバックサウンドを",2,2,7:SYMBOL (100,200),"意識して作った曲である。",2,2,7
  41. 410 OPEN "I",#1,"IL.MML"
  42. 420 FOR I=1 TO 9:FOR J=1 TO 14
  43. 430 INPUT#1,M$(J,I):NEXT J,I
  44. 440 CLOSE #1
  45. 450 FOR I=1 TO 8:PLAY M$(1,I),M$(2,I),M$(3,I),M$(4,I),M$(5,I),M$(6,I),M$(7,I),M$(8,I),M$(9,I),M$(10,I),M$(11,I),M$(12,I),M$(13,I),M$(14,I):NEXT I
  46. 460 A$=INPUT$(1):IF A$="" THEN 470
  47. 470 CLS:GOTO 190
  48. 480 *TN
  49. 490 LOAD@"FM_1.FMB"
  50. 500 CLS:LINE(100,50)-(500,100),PSET,1,BF:LINE(100,110)-(500,240),PSET,1,BF:SYMBOL (110,50),"TAMASY",4,3,7
  51. 510 SYMBOL (100,110),"初期の作品｡あつい｢TAMASY｣",2,2,7:SYMBOL (100,140),"を描き出すために拍子を無",2,2,7:SYMBOL(100,170),"視した｡シンセのメロディ",2,2,7:SYMBOL (100,200),"をお聞きください。",2,2,7
  52. 520 OPEN"I",#1,"T1.MML"
  53. 530 FOR I=1 TO 7:FOR J=1 TO 14
  54. 540 INPUT#1,M$(J,I):NEXT J,I
  55. 550 CLOSE#1
  56. 560 FOR I=1 TO 7:PLAY M$(1,I),M$(2,I),M$(3,I),M$(4,I),M$(5,I),M$(6,I),M$(7,I),M$(8,I),M$(9,I),M$(10,I),M$(11,I),M$(12,I),M$(13,I),M$(14,I):NEXT I
  57. 570 A$=INPUT$(1):IF A$="" THEN 580
  58. 580 CLS:GOTO 190
  59. 590 *TK
  60. 600 LOAD@"FM_1.FMB":LOAD@"GUITAR.PMB"
  61. 610 CLS:LINE(100,50)-(500,100),PSET,1,BF:LINE(100,110)-(500,240),PSET,1,BF:SYMBOL (110,50),"TAMASY-改",4,3,7
  62. 620 SYMBOL (100,110),"友達の勧めにより｢TAMASY｣",2,2,7:SYMBOL (100,140),"の主にオープニングを書",2,2,7:SYMBOL(100,170),"き直したもの｡しかし、あの",2,2,7:SYMBOL (100,200),"激しさはかわっていない。",2,2,7
  63. 630 OPEN"I",#1,"T2.MML"
  64. 640 FOR I=1 TO 7:FOR J=1 TO 14
  65. 650 INPUT#1,M$(J,I):NEXT J,I
  66. 660 CLOSE#1
  67. 670 FOR I=1 TO 7:PLAY M$(1,I),M$(2,I),M$(3,I),M$(4,I),M$(5,I),M$(6,I),M$(7,I),M$(8,I),M$(9,I),M$(10,I),M$(11,I),M$(12,I),M$(13,I),M$(14,I):NEXT I
  68. 680 A$=INPUT$(1):IF A$="" THEN 690
  69. 690 CLS:GOTO 190
  70. 700 *KAORI
  71. 710 LOAD@"NIX_POP1.FMB":LOAD@"E_BASS.PMB"
  72. 720 CLS:LINE(100,50)-(500,100),PSET,1,BF:LINE(100,110)-(500,240),PSET,1,BF:SYMBOL (110,50),"危険な香り",4,3,7
  73. 730 SYMBOL (100,110),"今までのアップテンポの曲",2,2,7:SYMBOL (100,140),"にしぶめの曲を入れて曲の",2,2,7:SYMBOL(100,170),"系統を増やすために作曲し",2,2,7:SYMBOL (100,200),"た作品。",2,2,7
  74. 740 OPEN"I",#1,"KIKEN.MML"
  75. 750 FOR I=1 TO 9:FOR J=1 TO 14
  76. 760 INPUT#1,M$(J,I):NEXT J,I
  77. 770 CLOSE#1
  78. 780 FOR I=1 TO 9:PLAY M$(1,I),M$(2,I),M$(3,I),M$(4,I),M$(5,I),M$(6,I),M$(7,I),M$(8,I),M$(9,I),M$(10,I),M$(11,I),M$(12,I),M$(13,I),M$(14,I):NEXT I
  79. 790 A$=INPUT$(1):IF A$="" THEN 800
  80. 800 CLS:GOTO 190
  81. 810 *RANNA
  82. 820 LOAD@"E_BASS.PMB"
  83. 830 CLS:LINE(100,50)-(500,100),PSET,1,BF:LINE(100,110)-(500,240),PSET,1,BF:SYMBOL (110,50),"BASS ON",4,3,7
  84. 840 SYMBOL (100,110),"BASSを中心に作った曲｡",2,2,7:SYMBOL (100,140),"和音を多用し厚みを出した｡",2,2,7:SYMBOL(100,170),"かなり短いので聞きやすい",2,2,7:SYMBOL (100,200),"と思います",2,2,7
  85. 850 OPEN"I",#1,"SKK.MML"
  86. 860 FOR I=1 TO 6:FOR J=1 TO 14
  87. 870 INPUT#1,M$(J,I):NEXT J,I
  88. 880 CLOSE#1
  89. 890 FOR I=1 TO 6:PLAY M$(1,I),M$(2,I),M$(3,I),M$(4,I),M$(5,I),M$(6,I),M$(7,I),M$(8,I),M$(9,I),M$(10,I),M$(11,I),M$(12,I),M$(13,I),M$(14,I):NEXT I
  90. 900 A$=INPUT$(1):IF A$="" THEN 910
  91. 910 CLS:GOTO 190
  92. 920 *NEL
  93. 930 LOAD@"RYM_ALL1.PMB":LOAD@"FM_1.FMB"
  94. 940 CLS:LINE(100,50)-(500,100),PSET,1,BF:LINE(100,110)-(500,210),PSET,1,BF:SYMBOL (110,50),"SAX ON",4,3,7
  95. 950 SYMBOL (100,110),"｢BASS ON｣と同様､サックス",2,2,7:SYMBOL (100,140),"の短い曲。マイルドなサッ",2,2,7:SYMBOL(100,170),"クスをお聞き下さい｡",2,2,7
  96. 960 OPEN"I",#1,"NEL.MML"
  97. 970 FOR I=1 TO 6:FOR J=1 TO 14
  98. 980 INPUT#1,M$(J,I):NEXT J,I
  99. 990 CLOSE#1
  100. 1000 FOR I=1 TO 6:PLAY M$(1,I),M$(2,I),M$(3,I),M$(4,I),M$(5,I),M$(6,I),M$(7,I),M$(8,I),M$(9,I),M$(10,I),M$(11,I),M$(12,I),M$(13,I),M$(14,I):NEXT I
  101. 1010 A$=INPUT$(1):IF A$="" THEN 910
  102. 1020 CLS:GOTO 190
  103. 1030 *EEE
  104. 1040 CLS
  105. 1050 FOR I=400 TO 0 STEP -20:LINE(50,I)-(150,I+50),PSET,4:NEXT I
  106. 1060 FOR I=400 TO 0 STEP -20:LINE(150,I+50)-(250,I+25),PSET,4:NEXT I
  107. 1070 FOR I=400 TO 0 STEP -20:LINE(250,I+25)-(150,I-25),PSET,4:NEXT I
  108. 1080 FOR I=400 TO 0 STEP -20:LINE(150,I-25)-(50,I),PSET,4:NEXT I
  109. 1090 SYMBOL (300,150),"終",4,4,5:WAIT 30:SYMBOL (360,150),"了",4,4,5:WAIT 30:SYMBOL (420,150),"でー",4,4,6:WAIT 30:SYMBOL (530,150),"す",4,4,6:WAIT 30
  110. 1100 END
  111.